home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / speed test (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  88 lines
  1. 1 rem      speed adjustment program
  2. 3 rem
  3. 5 rem
  4. 7 rem
  5. 10 poke 53281,1:poke53280,1:printchr$(30)
  6. 20 printchr$(147)
  7. 30 open1,8,15
  8. 40 print"  "chr$(18)"speed adjustment program"
  9. 50 print
  10. 60 printtab(9)"please wait"
  11. 70 fori=.to161
  12. 80 read a:s=s+a
  13. 90 print#1,"m-w";chr$(i)chr$(3);chr$(1)chr$(a)
  14. 100 nexti
  15. 110 if s<>15669 then print"error in data":goto 480
  16. 120 print
  17. 130 print
  18. 140 printtab(4)"please insert a blank formatted  "
  19. 150 print
  20. 160 printtab(10)"diskette"
  21. 180 print
  22. 190 print
  23. 200 printtab(4)"when ready to start press "chr$(18)"space"chr$(146)
  24. 210 geta$:ifa$<>chr$(32)then 210
  25. 220 printchr$(19)
  26. 230 for i=.to 5:printchr$(17):next i
  27. 240 print
  28. 250 print
  29. 260 print
  30. 270 print
  31. 280 print
  32. 290 print"press   "chr$(18)"f7"chr$(146)" when speed is o.k."
  33. 295 gosub 560
  34. 300 fori=.to2:printchr$(145);:next
  35. 310 print#1,"m-w"chr$(5)chr$(3)chr$(1)chr$(11)
  36. 320 t=36:j=14:gosub 570
  37. 330 fori=1 to 4
  38. 340 print#1,"m-r"chr$(6+i)chr$(3):get#1,b$
  39. 350 s(i)=asc(b$+chr$(.))
  40. 360 next i
  41. 370 if s(3)=0 or s(4)=0 then 500
  42. 380 c=256*(s(4)+s(3))+s(2)+s(1)-3996
  43. 390 c=int(c/20+0.5)
  44. 400 printchr$(145)"disk drive speed is       "c"ms   "
  45. 410 geta$:ifa$=chr$(136)then 450
  46. 420 if abs(c)>5 then 310
  47. 430 print#1,"m-w"chr$(5)chr$(3)chr$(1)chr$(78)
  48. 440 goto 320
  49. 450 printchr$(17)chr$(17)chr$(17)
  50. 460 print"o.k."
  51. 470 gosub 560
  52. 480 close1
  53. 490 end
  54. 500 print
  55. 510 printchr$(18)"error !!->"
  56. 520 print"check   your disk!!!         "
  57. 530 fori=1to1000:nexti
  58. 540 goto 470
  59. 550 rem
  60. 560 t=1:j=1
  61. 570 print#1,"m-w"chr$(6)chr$(0)chr$(2)chr$(t)chr$(0)
  62. 580 print#1,"m-w"chr$(0)chr$(0)chr$(1)chr$(j*16)
  63. 590 print#1,"m-r"chr$(0)chr$(0):get#1,l$:l=asc(l$+chr$(0)):ifl>127then 590
  64. 600 if j=12 then fori=1to2500:next
  65. 610 return
  66. 620 rem
  67. 630 data 169,0,133,0,76,11,3,0
  68. 640 data 0,0,0,120,173,12,28,41
  69. 650 data 31,9,192,141,12,28,169,255
  70. 660 data 141,3,28,162,85,142,1,28
  71. 670 data 162,50,160,0,80,254,184,136
  72. 680 data 208,250,202,208,247,80,254,184
  73. 690 data 141,1,28,169,224,13,12,28
  74. 700 data 162,4,80,254,184,202,208,250
  75. 710 data 141,12,28,142,3,28,162,3
  76. 720 data 80,254,184,202,208,250,120,173
  77. 730 data 11,24,9,64,141,11,24,162
  78. 740 data 1,169,98,141,4,24,160,0
  79. 750 data 140,8,3,140,10,3,140,7
  80. 760 data 3,140,9,3,44,0,28,48
  81. 770 data 251,140,5,24,44,0,28,16
  82. 780 data 251,44,0,28,16,19,173,13
  83. 790 data 24,10,16,245,173,4,24,254
  84. 800 data 7,3,208,237,254,9,3,208
  85. 810 data 232,202,240,224,169,191,45,11
  86. 820 data 24,141,11,24,169,1,88,108
  87. 830 data 232,255
  88.